使用UI层 DAL层配合增删查改(Qiyu_CursorAdpater的方式)

DAL_CA在前面的示例中,我们采用命令的操作方式来操作表.这次我们为DAL_CA加上UI操作界面. 1 表单类设置为Qiyu_form_Single,新建一个表单,拖入如下控件. 设置表单的opcode为2编辑模式 2 设置Qiyu_Grid_Soft1的RecordResource为DAL_Employees 的Alias别名,这里为Employees 3 表单的LOAD方法中加入如下代码

Thisform.Oca=Newobject("Dal_Employees","Dal_Employees_ca.prg")
If !Thisform.Oca.CursorFill(.T.)  &&加载数据
   Aerror(laerror)
   Messagebox(laerror(2))
   Return 0
Endif

3 添加按钮Click方法

Thisform.Oca.Add()
Thisform.Refresh()

4 删除按钮Click方法

thisform.Oca.delete()

5 保存按钮Click方法

If Thisform.Oca.Save()
   Wait "保存成功" Windows
Else
   Wait "保存失败"  Windows
Endif

6 撤消按钮Click方法

If Thisform.Oca.Undo()>=0
   Wait "撤消成功" Windows
Endif

运行表单,即拥有了增删查改的功能啦,当修改了表,关闭表单还会自动弹出提示.是不是一切都很简单.